BEGIN


MACRO ?&FOR(X);		?&FOR1(X[2,2], X[3,2], X[4,2], X[5,2],
				?&LISTLST(X[2,2], 1));


MACRO ?&DO(X);		?&LOOP1(X[1], X[2,2], X[3,2], X[4,2]);


MACRO ?&WHILE(X);	?&LOOP1(X[1], X[2,2], X[4,2], X[3,2]);


MACRO ?&INDEX (X);	?&CARS(CADR X, CDADDR X, 4);


MACRO NEQ (X);		<'NOT, 'EQ CONS CDR X>;


MACRO NEQUAL (X);	<'NOT, 'EQUAL CONS CDR X>;


MACRO LEQUAL (X);	<'NOT, 'GREATERP CONS CDR X>;


MACRO GEQUAL (X);	<'NOT, 'LESSP CONS CDR X>;


END.